home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / gc hardcopy (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  59 lines
  1. 0 IFL=0THEN LET L=1:LOAD"Q9",8,1
  2. 1 CLR:GOSUB100:OPEN4,4,0:PRINT#4,CHR$(10)CHR$(13)CHR$(13);
  3. 2 CLOSE4
  4. 3 A$=C$
  5. 4 POKE56576,0:POKE53265,59:POKE53272,56
  6. 5 POKE53281,15:POKE53280,15
  7. 20 SYS 49155,160,"H?."+A$+" 1"
  8. 21 SYS 49155,224,"H?."+A$+" 2"
  9. 22 SYS 49152
  10. 30 SYS 49155,160,"H?."+A$+" 3"
  11. 31 SYS 49155,224,"H?."+A$+" 4"
  12. 32 SYS 49152:IFBB=4THEN GOTO 70
  13. 40 SYS 49155,160,"HZ."+A$+" 5"
  14. 41 SYS 49155,224,"HZ."+A$+" 6"
  15. 42 SYS 49152
  16. 50 SYS 49155,160,"HZ."+A$+" 7"
  17. 51 SYS 49155,224,"HZ."+A$+" 8"
  18. 52 SYS 49152
  19. 60 SYS 49155,160,"HZ."+A$+" 9"
  20. 61 SYS 49155,224,"HZ."+A$+" 10"
  21. 62 SYS 49152
  22. 70 POKE53265,27:POKE53272,21:POKE56576,3
  23. 80 GOTO 1
  24. 100 POKE53280,0:POKE53281,0
  25. 101 PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  26. 102 PRINT"[194][153] HARDCOPY VON GIGA-CAD AUF OKIMATE 20 [146][194]";
  27. 103 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  28. 110 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  29. 120 PRINT"[194]  1 - 4FACH          2 - 10FACH       [146][194]";
  30. 130 PRINT"[173][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][189]";
  31. 135 PRINT"        [194][158] BITTE TASTE DRUECKEN ![146][194]       ";
  32. 140 PRINT"        [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]       ";
  33. 150 POKE198,0
  34. 155 GETA$:IFA$<>"1"ANDA$<>"2"THEN155
  35. 160 IFA$="1"THENBB=4
  36. 165 IFA$="2"THENBB=10
  37. 170 REM
  38. 200 PRINT""
  39. 210 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  40. 220 PRINT"[194][129]        BITTE FILENAMEN EINGEBEN      [146][194]";
  41. 230 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  42. 240 PRINT"             [176][178][178][178][178][178][178][178][178][178][178][178][178][174]             ";
  43. 250 PRINT"             [194]            [194]"
  44. 260 PRINT"             [173][177][177][177][177][177][177][177][177][177][177][177][177][189]             [149]";
  45. 270 C=0:C$="":L=18
  46. 290 POKE198,0
  47. 300 GETA$:IFA$=""THEN300
  48. 305 IFA$>="0"ANDA$<="Z"THEN350
  49. 310 IFA$=CHR$(20)THEN360
  50. 320 IFA$="[147]"THENC=0:C$="":PRINT"";:GOTO390
  51. 330 IFA$=CHR$(13)THEN400
  52. 350 IFC=12THEN290
  53. 355 C=C+1:C$=C$+A$:PRINT"";
  54. 356 FORT=0TOC:PRINT"";:NEXTT:PRINTA$;:GOTO290
  55. 360 IFC=0THEN290
  56. 365 C=C-1:C$=LEFT$(C$,LEN(C$)-1):POKE1024+L*40+C+14,32:GOTO290
  57. 390 PRINT"            ";:GOTO290
  58. 400 RETURN
  59.